home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / ls 6 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  495b  |  28 lines
  1. 100 rem sprite 0 animieren
  2. 110 rem
  3. 120 rem vorbereitungen
  4. 130 rem
  5. 140 rem farben
  6. 150 poke 53280,5:poke53281,0
  7. 160 poke 53285,8:poke53286,11:poke53287,7
  8. 170 rem vic-register
  9. 180 xreg=53248:xlauf=53264
  10. 190 yreg=53249
  11. 200 rem
  12. 210 poke53276,1:rem sprite 0 multicolor
  13. 220 poke 2040,128:rem spritezeiger auf daten
  14. 230 pokexreg,160:pokeyreg,120:rem anfangspos.
  15. 240 poke 53269,1:rem sprite 0 an
  16. 250 rem
  17. 260 rem sprite animieren
  18. 270 rem
  19. 280 forbl=128to135
  20. 290 poke2040,bl
  21. 300 gosub360:rem warteschleife
  22. 310 nextbl
  23. 320 goto280
  24. 330 rem
  25. 340 rem warteschleife
  26. 350 rem
  27. 360 forw=1to100:nextw:return
  28.